قطعه کد برای باز کردن یک فایل صوتی در یک کنترل مدیا پلیر

WindowsMediaPlayer1.Controls.stop
WindowsMediaPlayer1.URL = App.Path + "\LAHN\saba\158.MP3"
WindowsMediaPlayer1.Controls.play

قطعه کد باز کردن یک فایل وب

Shell "Explorer " & App.Path & "\Tafsire Almizan\almizan.html", vbMaximizedFocus
 

قطعه کد باز کردن یک فایل متنی در ورد

Dim objWord As Word.Application
Set objWord = New Word.Application
objWord.Visible = True
objWord.Documents.Open App.Path & "\TAFSIR NEMOONEH\TafsirNemooneText\1.doc", , , True